#! /usr/bin/perl

use diagnostics;
use strict;

my $file = '/home/clock/a';
my @result = (stat $file)[9];
print "[@result]";